home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / golf_dw < prev    next >
Internet Message Format  |  1995-03-31  |  26KB
  1. From: David Waelder <davidw@fib.upc.es>
  2. Subject:  v05i020:  golf_dw - Golf v1.2, Part01/01
  3. Newsgroups: comp.sources.hp48
  4. Followup-To: comp.sys.hp48
  5. Approved: spell@seq.uncwil.edu
  6.  
  7. Checksum: 2887252939 (verify with brik -cv)
  8. Submitted-by: David Waelder <davidw@fib.upc.es>
  9. Posting-number: Volume 5, Issue 20
  10. Archive-name: golf_dw/part01
  11.  
  12.  
  13. BEGIN_DOC golf.doc
  14.  
  15. Subject : A golf game for your hp48
  16.  
  17. Version : 1.2 (ENHANCED by Mike Rovak)
  18.  
  19. Authors : Marc Moline for the 48 adapting the original writen by
  20.  
  21.           Mike Ortega for the 28
  22.  
  23.  
  24.     As you may guess form the title this is a Golf game. The original game
  25. was written by Mike Ortega for the hp28s and I addapted it to the 48sx
  26. changing many details (mostly graphical). This program was done a long ago,
  27. in a distant 1990, so when I uploaded it to my calculator I saw that many
  28. changes could be made...
  29.  
  30.     Well you play by pressing (You'll never say) GOLF and you only have to
  31. do what you are asked to do. Just don't get to hasty. Wait until the sand
  32. clock indicator turns off to press the next key.
  33.  
  34. Features:
  35.  
  36. Wind (It appears on top left when choosing club)
  37.  
  38.     Positive numbers: Wind from left to right
  39.     Negative numbers: Wind from right to left
  40.  
  41. Clubs (In this version 1.2 are the A_B_C_D letters)
  42.  
  43.     Wood       For long distance shots
  44.  
  45.     Iron       For not so long distance shots
  46.  
  47.     Wedge      For high short shots (To go out of a bunker)
  48.  
  49.     Putter     For real short range shots
  50.  
  51.  
  52.  
  53. Strength (The increasing bar on top left once you have chosen the club)
  54.  
  55.     The longer the line is, the stronger you shoot. Three tings about this:
  56.  
  57.     1 - Due to garbage collection it sometimes stops. I don't know how to
  58.         avoid it.
  59.  
  60.     2 - It adds one when you press for shooting, this turns PERFECT shots
  61.         into fumbles. Just to make it a bit fustrating like real golf( This
  62.         happens in real life: the more you risk, the bigger the cances to
  63.         flop.)
  64.  
  65.     3 - I removed the bar from Ver 1.0 This is supposed to be challenging!
  66.  
  67.  
  68.     If after a n_uple bogey you take the easy way out (ON) you'll see a lot
  69. of silly variables. To get rid of them execute the program CLR (Not the
  70. Blue-Backspace) The CST menu has a GOLF button, a CLR button and a HOME.
  71. use this CLR to get rid of the variables
  72.  
  73.     This is If_You_Find_This_Good_Send_Me_A_Comic_Book-ware and since it
  74. doesn't call ML routines It's SAFE and SLOW.
  75.  
  76.     Be careful not to purge (Overwrite) the EQ and the PPAR !!
  77.     Any comments, etc. please to the address below. Fast ML graphic routines
  78. specially welcomed!
  79.  
  80.  
  81.  
  82. *----------------------------------------------------------------------------*
  83. *                                  *                                         *
  84. * Marc Moline                      *  Daytime telephone   : ---------        *
  85. * Pza F. i Argemi, 4               *  Nighttime telephone : (93) 788 01 51   *
  86. * 08224 Terrassa (Barcelona)       *  EAN : DavidW@fib.upc.es                *
  87. *       S P A I N                  *  The EAN is not mine, but it's OK       *
  88. *----------------------------------------------------------------------------*
  89. END_DOC
  90.  
  91. HERE ARE THE NEW VERSIONS:
  92.  
  93. BEGIN_RPL golf.rpl
  94. %%HP: T(3)A(D)F(.);
  95. DIR
  96.   GOLF
  97.     \<< RCLF \-> flg
  98.       \<< DEG STD
  99. PRIN 0 'TP' STO 0
  100. 'TT' STO "PAR  "
  101. 'ST2' STO "YOU  "
  102. 'ST3' STO 1 6
  103.         FOR J { D1
  104. D2 D3 D4 D5 D6 } J
  105. GET EVAL 'DATA' STO
  106. { (120,16) (112,15)
  107. (104,22) (126,15)
  108. (120,15) (104,22) }
  109. J GET DUP J FLD C\->R
  110. 'YH' STO 'XH' STO {
  111. 4 4 5 4 5 5 } J GET
  112. 'PAR' STO { (9,16)
  113. (15,16) (8,22)
  114. (14,16) (8,15)
  115. (8,23) } J GET C\->R
  116. 'Y' STO 'X' STO
  117. ERASE { # 0d # 0d }
  118. PVIEW PICT (0,30)
  119. CAMP GOR X Y R\->C
  120. PIXON PICT { # 40d
  121. # 20d } "Hole-" J
  122. \->STR + " Par-" +
  123. PAR \->STR + 1 \->GROB
  124. GOR BASE T PAR -
  125. 'TP' STO+ T 'TT'
  126. STO+ ST1 2 DISP
  127. "---------------------"
  128. 3 DISP PAR \->STR P4
  129. ST2 SWAP + DUP
  130. 'ST2' STO 4 DISP T
  131. \->STR P4 ST3 SWAP +
  132. DUP 'ST3' STO 5
  133. DISP "TOTAL " TT
  134. \->STR + "  TO PAR "
  135. + TP \->STR + 7 DISP
  136. 2 WAIT
  137.         NEXT FIN
  138. flg STOF
  139.       \>> 1 MENU
  140.     \>>
  141.   CLR
  142.     \<< { V AX Y1 X1
  143. H F Z C T X Y PAR
  144. XH YH DATA CAMP ST3
  145. ST2 TT TP } PURGE
  146.     \>>
  147.   PRIN
  148.     \<< CLLCD
  149. "      -- golf --"
  150. 1 DISP
  151. "by M.Ortega & M.Molin\233"
  152. 3 DISP "Record in "
  153. RD \->STR +
  154. " shots by" + 5
  155. DISP RDN 6 DISP 3
  156. FREEZE
  157.     \>>
  158.   BASE
  159.     \<< 0 'T' STO
  160.       DO RAND 4 * 2
  161. - { # 0d # 0d }
  162. OVER 5 * IP DUP ABS
  163. \->STR "WIND" ROT
  164.         IF 0 \>=
  165.         THEN " \->  "
  166.         ELSE " \<-  "
  167.         END + SWAP
  168. + 1 \->GROB PICT ROT
  169. ROT GOR CHO ERASE {
  170. # 0d # 0d } PVIEW
  171. PICT RAND 110 *
  172. RAND 20 * 30 + R\->C
  173. NUBE GOR PICT RAND
  174. 110 * RAND 20 * 30
  175. + R\->C NUBE GOR PICT
  176. (0,30) CAMP GOR X Y
  177. R\->C PIXON TIRO C *
  178. F 10 / * IP F C * +
  179. 'H' STO
  180.         IF Z 0 ==
  181.         THEN P2
  182.         ELSE P1
  183.         END 1 'T'
  184. STO+
  185.       UNTIL X XH ==
  186.       END PICT
  187. (0,0) (131,63) SUB
  188. 1 2
  189.       START DUP DUP
  190. NEG PICT SWAP
  191. (0,63) SWAP ERASE
  192. GOR .2 WAIT PICT
  193. SWAP (0,63) SWAP
  194. ERASE GOR .1 WAIT
  195.       NEXT DROP
  196. CLLCD TEXT
  197. "YOU needed " T
  198. \->STR + " shots..."
  199. + 1 DISP
  200.     \>>
  201.   EQ 'CEIL(TAN(Z)*(
  202. V*(X-X1)-INV(H)*(X-
  203. X1)^2))+Y1'
  204.   PPAR { (0,0)
  205. (130,63) X 1 (0,0)
  206. FUNCTION Y }
  207.   TIRO
  208.     \<< 0 'F' STO
  209.       DO "" 1 DISP
  210. { # 0d # 8d } {
  211. # 18d # 8d } DUP2
  212. LINE TLINE TIR
  213.       UNTIL F
  214.       END PICT
  215. (18,6) # 95d # 5d
  216. BLANK REPL
  217.     \>>
  218.   TIR
  219.     \<< 0 18
  220.       FOR I I 55
  221. R\->C PIXON
  222.         IF KEY
  223.         THEN DROP I
  224. 2 / IP 1 + 'F' STO
  225. 18 'I' STO
  226.         END
  227.       NEXT
  228.     \>>
  229.   CHO
  230.     \<< 0 \-> t
  231.       \<<
  232.         DO { WOOD
  233. IRON WEDGE PUTT }
  234.           IF -56
  235. FS?
  236.           THEN {
  237. "S+" }
  238.           ELSE {
  239. "S-" }
  240.           END +
  241. TMENU { { 6 45 } {
  242. 4 30 } { 2 75 } { 1
  243. 0 } } 1
  244.           DO DROP
  245. -1 WAIT
  246.           UNTIL DUP
  247. 16 <
  248.           END 10 -
  249. IP
  250.           IF DUP 5
  251. ==
  252.           THEN
  253. DROP2
  254.             IF -56
  255. FC?C
  256.             THEN
  257. -56 SF
  258.             END
  259.           ELSE 1
  260. 't' STO GET OBJ\->
  261. DROP 'Z' STO 'C'
  262. STO
  263.           END
  264.         UNTIL t
  265.         END
  266.       \>>
  267.     \>>
  268.   FLD
  269.     \<< ERASE { Z1 Z2
  270. Z3 Z4 Z5 Z6 } SWAP
  271. GET EVAL DUP SIZE
  272. SWAP DROP B\->R 10 +
  273. \-> F H
  274.       \<< 0 8
  275.         FOR I PICT
  276. I 16 * H R\->C F GOR
  277.         NEXT
  278.       \>> PICT SWAP
  279. (-4,8) + FLAG GOR
  280. PICT (18,6)
  281. "PRESS ANY KEY TO SHOOT !"
  282. 1 \->GROB GOR PICT
  283. (0,0) (131,30) SUB
  284. 'CAMP' STO
  285.     \>>
  286.   RD 28
  287.   RDN "MIKE"
  288.   CST { GOLF { }
  289. CLR { } { } {
  290. "HOME"
  291.     \<< HOME 3 MENU
  292.     \>> } }
  293.   NUBE
  294. GROB 19 7 00E100C71E10280420101040110340E01D300FC000
  295.   FLAG
  296. GROB 5 9 01817121C101010101
  297.   Z6
  298. GROB 16 12 0C30066002400240018001A0019084518A518831C013700E
  299.   Z4
  300. GROB 16 5 F0CF8160012001200E10
  301.   Z3
  302. GROB 16 11 0EF0038181038C12C0664884649C22A8212F30080000
  303.   Z2
  304. GROB 16 5 700C81030280744E8931
  305.   Z5
  306. GROB 16 6 6000A3001C1010E01003100C
  307.   Z1
  308. GROB 16 5 0EF0810360341B448488
  309.   D6 { 1 1 2 5 8 11
  310. 12 12 12 12 11 8 5
  311. 2 1 0 }
  312.   D5 { 4 6 6 5 5 5
  313. 4 4 4 3 3 3 2 2 1 1
  314. }
  315.   D4 { 5 5 5 5 4 1
  316. 1 1 1 4 5 5 5 5 5 5
  317. }
  318.   D3 { 2 5 7 9 10
  319. 11 11 11 11 11 11
  320. 11 10 9 7 5 }
  321.   D2 { 5 5 5 4 4 3
  322. 2 1 1 1 2 3 4 4 5 5
  323. }
  324.   D1 { 2 3 3 4 4 5
  325. 5 5 5 5 5 5 4 4 3 1
  326. }
  327.   ST1
  328. "HOLE 1  2  3  4  5  6"
  329.   P4
  330.     \<<
  331.       WHILE DUP
  332. SIZE 3 <
  333.       REPEAT " " +
  334.       END
  335.     \>>
  336.   P3
  337.     \<< 16 MOD DATA
  338. SWAP 1 + GET 10 +
  339.     \>>
  340.   P2
  341.     \<< 700 1 BEEP
  342.       IF X XH >
  343.       THEN -1 'AX'
  344. STO
  345.       ELSE 1 'AX'
  346. STO
  347.       END 1 F C *
  348.       FOR I AX 'X'
  349. STO+
  350.         IF Y X P3 \<=
  351.         THEN 'X' AX
  352. STO- F C * 'I' STO
  353.         ELSE
  354.           DO X Y
  355. R\->C PIXON 'Y' 1
  356. STO-
  357.           UNTIL Y X
  358. P3 ==
  359.           END 1 'Y'
  360. STO+
  361.         END
  362.       NEXT 200 1
  363. BEEP
  364.     \>>
  365.   P1
  366.     \<< 700 1 BEEP X
  367. 'X1' STO Y 'Y1' STO
  368.       IF X XH >
  369.       THEN -1 'AX'
  370. STO -1 'V' STO
  371.       ELSE 1 'AX'
  372. STO 1 'V' STO
  373.       END
  374.       DO X Y R\->C
  375. PIXON
  376.       UNTIL AX 'X'
  377. STO+ X P3 EQ EVAL
  378. 'Y' STO Y \>=
  379.       END 'X' AX
  380. STO- X 'X1' STO X
  381. P3 1 + 'Y' STO X Y
  382. R\->C PIXON Y 'Y1'
  383. STO 200 1 BEEP
  384.     \>>
  385.   FIN
  386.     \<<
  387.       IF TT RD <
  388.       THEN CLLCD
  389. "You beat the RECORD,
  390. Last one was "
  391. RD \->STR + " shots."
  392. +
  393. "
  394.  
  395. Enter name, then ENTER"
  396. + { "" \Ga } INPUT
  397. 'RDN' STO TT 'RD'
  398. STO CLLCD
  399. "   CONGRATULATIONS"
  400. 1 DISP RDN 3 DISP
  401.       END CLR RAD
  402.     \>>
  403. END
  404. END_RPL
  405.  
  406.  
  407. BEGIN_ASC golf.asc
  408. %%HP: ;
  409. "69A20FF75CE1000000306494E430D9D20E16323CE2284E2020454584E2020254
  410. 4EBBE1AFE22D9D20858A1C2A209400095F65702265616470247865602255434F
  411. 42544C2A0C416374702F6E656027716370284E20202544B0BC176BA1C2A20310
  412. 00023786F64737E276BA1C2A2053000A0A054E647562702E616D656C20247865
  413. 6E60254E445542576BA147A20C2A205000084E2010C8B2130AC4224563284E20
  414. 302544E497632DCC0284E202045454563284E2020254497632DCC02858A1C2A2
  415. 09200002020234F4E47425144555C4144594F4E4359C2A2485A184E20302544E
  416. 43F2A2485A1B21305DF2284E203034C4254B3C193632B2130FD10020051320D9
  417. D20E16323392020000000000000709C2A24C5A184E2010854563284E20208513
  418. 97632DCC0284E2010954563284E2020951397632DCC023CE2284E20108584E20
  419. 208584D5CE1AFE22D9D20683A24563284E2020148597632DCC02683A24563284
  420. E20106597632DCC02B21305BF22D9D209C2A24563284E2020148597632DCC029
  421. C2A24563284E20106597632DCC02B21305DF223C03284E20108584E201095E97
  422. C1A13E1DE03284E202014854563284E20108597632B440284E20108584E20200
  423. 53384E20205415EB3A14563284E20109597632DCC0284E201095B9DE19B63245
  424. 63284E2010859763284E202014858350284E2010854563284E2020851397632D
  425. CC0284E20108584E202005339C2A276BA14563284E20109597632DCC0284E201
  426. 08584E201095E97C1A13E184E2010954563284E2020951397632DCC023392020
  427. 000000000000209C2A24C5A193632B2130CA20020052320D9D20E16323392020
  428. 000000000000709C2A24C5A13CE2284E20108584E20208584D5CE1AFE22D9D20
  429. 683A24563284E2020148597632DCC02B21305BF22D9D209C2A24563284E20201
  430. 48597632DCC02B21305DF229C2A284E20106484E201034EEDA10A132D6E20109
  431. 484E202014854563284E20108597632B44023CE2284E20109584E20108584E20
  432. 200533CFCE1AFE22D9D204563284E2010859763284E202014858350284E20106
  433. 484E201034EEDA145632D6E20109497632DCC02B21305BF22D9D203C03284E20
  434. 108584E201095E97C1A13E14563284E201095976329C2A283502DE03284E2010
  435. 9584E20108584E20200533279E19B6329C2A24563284E20109597632B4402B21
  436. 305DF22C42323392020000000000000209C2A24C5A193632B2130E4200200533
  437. 20D9D20E1632339201000000000000610D4EB184E204044144514DBBF19C2A27
  438. 6BA16C7D133920100000000000001076BA193632B21303700020054320D9D20E
  439. 16323303278BF18B9C13F2A2EBBE1D5032D9D20C2A20700000276BA1B2130496
  440. 3293632B2130A50003035451330C2A20F200084F4C4540213020223020233020
  441. 243020253020263E30002044132047A20ED2A23F2A23F2A2803A2803A2D13A2D
  442. 13A2D13A2D13A2D13A2D13A2D13A2803A2803A23F2A29C2A2B21302600020442
  443. 32047A20D13A2D13A2D13A2803A2803A23F2A2ED2A29C2A29C2A29C2A2ED2A23
  444. F2A2803A2803A2D13A2D13A2B2130260002044332047A20ED2A2D13A2743A217
  445. 3A23392010000000000000103392010000000000001103392010000000000001
  446. 1033920100000000000011033920100000000000011033920100000000000011
  447. 0339201000000000000110339201000000000000110339201000000000000010
  448. 173A2743A2D13A2B21302F0002044432047A20D13A2D13A2D13A2D13A2803A29
  449. C2A29C2A29C2A29C2A2803A2D13A2D13A2D13A2D13A2D13A2D13A2B213026000
  450. 2044532047A20803A2233A2233A2D13A2D13A2D13A2803A2803A2803A23F2A23
  451. F2A23F2A2ED2A2ED2A29C2A29C2A2B2130260002044632047A209C2A29C2A2ED
  452. 2A2D13A2C53A2339201000000000000110339201000000000000210339201000
  453. 0000000002103392010000000000002103392010000000000002103392010000
  454. 00000000110C53A2D13A2ED2A29C2A24B2A2B21302C00020A51320E1B2032000
  455. 50000010000EF0810360341B4484880300020A55320E1B207200060000010006
  456. 000A3001C1010E01003100C4300020A52320E1B20320005000001000700C8103
  457. 0280744E89310300020A53320E1B20B3000B0000010000EF0038181038C12C06
  458. 64884649C22A8212F300800008400020A54320E1B20320005000001000F0CF81
  459. 60012001200E100300020A56320E1B20F3000C0000010000C300660024002400
  460. 18001A0019084518A518831C013700EC40004064C4147440E1B2012000900005
  461. 000001817121C1010101012300040E455245440E1B2093000700003100000E10
  462. 0C71E10280420101040110340E01D300FC000A4000303435453047A2084E2040
  463. 74F4C46447A20B213084E203034C42547A20B213047A20B213047A20C2A20D00
  464. 0084F4D454D9D20E1632041A13F2A26911293632B2130B2130B2130D80003025
  465. 44E430C2A20D0000D494B454C100020254420339201000000000000820D10003
  466. 064C44430D9D20E1632F52E147A2084E2020A51384E2020A52384E2020A53384
  467. E2020A54384E2020A55384E2020A563B2130DBBF16C7D1EB3A178BF18B9C1DBB
  468. F18DBF1BB69133920100000000000001076BA11C432D6E201064D6E201084E16
  469. 324B2A2C53A20A132D6E201094634E1D6E201094339201000000000000610EED
  470. A1D6E201084E97C1D6E201064654E1C4232EF532634E1DBBF177920000000000
  471. 0000049000000000000008076BA184E204064C41474654E1634E177920100000
  472. 00000008100000000000000060C2A205300005255435350214E49502B4549502
  473. 45F4023584F4F44502129C2A2DA5E1654E1634E1779200000000000000000000
  474. 00000000000007792020000000000013101000000000000030C58C14563284E2
  475. 0403414D40597632DCC0293632B213006200303484F430D9D20E16324B2A21C4
  476. 32D6E201047E16323C03247A2084E204075F4F44484E20409425F4E484E20507
  477. 55444745484E204005554545B21303CE22339201000000000000659313C1AFE2
  478. 247A20C2A209000035B2B21305BF2247A20C2A209000035D2B21305DF2276BA1
  479. D511247A2047A20233A2339201000000000000540B213047A20803A233920100
  480. 0000000000030B213047A20ED2A2339201000000000000570B213047A209C2A2
  481. 4B2A2B2130B21309C2A23C0328DBF1683A2F17A1DE03278BF133920100000000
  482. 0000610EBBE19B63233920100000000000001090DA1D6BB13CE2278BF1D13A22
  483. 79E1AFE22D9D203FBF13CE22339201000000000000659025C1AFE22D9D203392
  484. 01000000000000659472C1B21305DF22B21305BF22D9D209C2A245632D6E2010
  485. 4797632DCC026C7D1B7FC18DBF14563284E2010A597632DCC024563284E20103
  486. 497632DCC02B21305DF22DE032D6E2010479B632EF53293632B21303D2003045
  487. 942530D9D20E16324B2A23392010000000000008100A132D6E201094D6E20109
  488. 4339201000000000000550E97C1A13E13CE22378A1AFE22D9D208DBF1D6E2010
  489. 94ED2A250FA1D6BB19C2A276BA14563284E20106497632DCC023392010000000
  490. 0000081045632D6E20109497632DCC02B21305DF22C423293632B2130DF00040
  491. 459425F440D9D20E16324B2A24563284E20106497632DCC023C032C2A2050000
  492. 9C2A2485A147A20E4A20510000000000000000000E4A20510008000000000000
  493. 000B213047A20E4A20510002100000000000000E4A2051000800000000000000
  494. 0B21302ABF1893E12C3E184E2030459425DE03284E2010649B632634E1779201
  495. 0000000000008100000000000000060E4A2051000F500000000000000E4A2051
  496. 0005000000000000000614E1AE8C193632B21309610040050514254047A20779
  497. 2000000000000000000000000000000000779202000000000000310100000000
  498. 000036084E2010859C2A27792000000000000000000000000000000000166E18
  499. 4E201095B21301A000205415208BA2084E2010A5E55B184E20106584E2010858
  500. 4E2020851390DA1EEDA184E201084872B184E20108584E2020851390DA1ED2A2
  501. D20B1EEDA190DA1EEDA1F0CB184E2020951376BA1B2130C9000402414355440D
  502. 9D20E16324B2A24563284E20104597632DCC023C0329B1C1803A2EEDA1ED2A29
  503. 0DA147A20E4A20510000000000000000000E4A20510000000000000000000B21
  504. 3092CF1D13A2EEDA1D6BB178BF1F1AA1B0BC1C2A20D00007594E444E0CF13CE2
  505. 24B2A2B9DE1AFE22C2A20D000002D802025BF22C2A20D000002E802025DF2276
  506. BA1DBBF176BA19C2A2DA5E1634E1E0CF1E0CF1654E184E20303484F4F52E147A
  507. 20E4A20510000000000000000000E4A20510000000000000000000B21300F2E1
  508. 634E19B1C1339202000000000000110EEDA19B1C1339201000000000000020EE
  509. DA133920100000000000003076BA1E97C184E2040E4552454654E1634E19B1C1
  510. 339202000000000000110EEDA19B1C1339201000000000000020EEDA13392010
  511. 0000000000003076BA1E97C184E2040E4552454654E1634E1779200000000000
  512. 000000100000000000003084E20403414D405654E184E20108584E201095E97C
  513. 1A13E184E2040459425F484E201034EEDA184E20106433920100000000000001
  514. 050FA1EEDA1D6BB184E20106484E201034EEDA176BA14563284E20108497632D
  515. CC023CE2284E2010A54B2A2279E1AFE2284E202005235BF2284E202005135DF2
  516. 29C2A24563284E20104597632B4402DE03284E20108584E20208584279E19B63
  517. 2634E17792000000000000000000000000000000000779202000000000001310
  518. 1000000000000360C58C19C2A2ED2A23013278BF178BF1599A1634E1DBBF1779
  519. 2000000000000000001000000000000360DBBF1F52E1654E1339209990000000
  520. 000020F17A1634E1DBBF17792000000000000000001000000000000360DBBF1F
  521. 52E1654E1339209990000000000010F17A1C42328DBF1858A1606E1C2A20B100
  522. 095F45502E656564656460284E201045B0BC176BA1C2A2071000023786F64737
  523. E2E2E276BA19C2A2485A193632B2130C650040052594E440D9D20E1632858A1C
  524. 2A2052000020202020202D2D20276F6C66602D2D29C2A2485A1C2A2013000269
  525. 702D4E2F42747567616026202D4E2D4F6C696E69E3F2A2485A1C2A2091000255
  526. 636F627460296E60284E20202544B0BC176BA1C2A2071000023786F647370226
  527. 9776BA1D13A2485A184E20302544E4233A2485A13F2A24A5A193632B21308110
  528. 03034C42530D9D20E163247A2084E20106584E2020148584E2020951384E2020
  529. 851384E20108484E20106484E2010A584E20103484E20104584E20108584E201
  530. 09584E203005142584E2020858484E2020958484E20404414451484E20403414
  531. D40584E203035453384E203035452384E2020454584E20204505B2130EFE0293
  532. 632B2130701004074F4C46440D9D20E1632916C11C432D6E203066C676E16329
  533. 93C1684C184E2040052594E44B2A24563284E2020450597632DCC024B2A24563
  534. 284E2020454597632DCC02C2A20F000005142502024563284E20303545239763
  535. 2DCC02C2A20F000095F45502024563284E203035453397632DCC029C2A2233A2
  536. 0A132D6E2010A447A2084E2020441384E2020442384E2020443384E202044438
  537. 4E2020445384E20204463B2130D6E2010A46C7D1EB3A14563284E20404414451
  538. 497632DCC0247A20779202000000000000210100000000000061077920200000
  539. 0000002110100000000000051077920200000000000401010000000000002207
  540. 7920200000000000621010000000000005107792020000000000002101000000
  541. 0000005107792020000000000040101000000000000220B2130D6E2010A46C7D
  542. 178BF1D6E2010A484E203064C444E89C14563284E2020958497632DCC0245632
  543. 84E2020858497632DCC0247A20803A2803A2D13A2803A2D13A2D13A2B2130D6E
  544. 2010A46C7D14563284E203005142597632DCC0247A2077920000000000000009
  545. 0100000000000061077920100000000000051010000000000006107792000000
  546. 0000000008010000000000002207792010000000000004101000000000000610
  547. 7792000000000000000801000000000000510779200000000000000080100000
  548. 0000000320B2130D6E2010A46C7D1E89C14563284E20109597632DCC02456328
  549. 4E20108597632DCC02F52E147A20E4A20510000000000000000000E4A2051000
  550. 0000000000000000B21300F2E1634E1779200000000000000000100000000000
  551. 003084E20403414D405654E184E20108584E201095E97C1A13E1634E147A20E4
  552. A20510008200000000000000E4A20510004100000000000000B2130C2A20F000
  553. 084F6C656D2D6E2010A4B0BC176BA1C2A20F000002051627D276BA184E203005
  554. 1425B0BC176BA19C2A2DA5E1654E184E20402414355484E20104584E20300514
  555. 2590DA14563284E2020450597632B440284E2010454563284E2020454597632B
  556. 440284E2030354513ED2A2485A1C2A20F2000D2D2D2D2D2D2D2D2D2D2D2D2D2D
  557. 2D2D2D2D2D2D2D23F2A2485A184E2030051425B0BC184E2020054384E2030354
  558. 523DBBF176BA178BF14563284E203035452397632DCC02803A2485A184E20104
  559. 5B0BC184E2020054384E2030354533DBBF176BA178BF14563284E20303545339
  560. 7632DCC02D13A2485A1C2A201100045F44514C40284E20204545B0BC176BA1C2
  561. A2071000020245F4020514250276BA184E20204505B0BC176BA1743A2485A1ED
  562. 2A2F17A1C423284E20306494E4D6E203066C676F76C1EF5329C2A26911293632
  563. B21308A19"
  564. END_ASC
  565.  
  566. BYTES: #91A8h 4935
  567.  
  568. BEGIN_UU golf.uue
  569. begin 666 golf
  570. M2%!(4#0X+466*O!_Q1X    #1DE. YTMX&$CPRZ"Y ("5%1(+B @1>2['OHN
  571. MTMD"6*C!H@)) )#U5@<B5A9&!T*'5@8B533T)$7$HL 4-D<'\N96!G(7-@>"
  572. MY ("4D0+RW&V&BPJ, $ ('-H;W1S+F>KP:("-0"@H%#D1E<F!^(6UE;& D*'
  573. M5N8&4N1$521UMAIT*L"B @4 @.0" 8PK,:!,(E0V@N0" U)$3GDVTLP@2"X@
  574. M0$5%92-(+B @191G(\T,@H4:+"J0 @ @("!#3TY'4D%454Q!5$E/3E/)HD)8
  575. M&D@N,"!%Y#0O*H2EL1(#U2^"Y (#0TQ2M,.18R,K,? =  )0,0*=+>!A(S,I
  576. M(        '"0+"K$I8'D @%85#:"Y ("6#%Y-M+,($@N$)!%92-(+B"0%9-G
  577. M(\T,,NPB2"X0@(7D @)82%WLH>\BG2U@."I4-H+D @)!6'DVTLP@AJ-"92-(
  578. M+A!@E6<CS0RR$@.U+]+9 LFB0F4C2"X@$(259R/-#)(L*E0V@N0" 59Y-M+,
  579. M("LQ4/TBPS""Y (!6$@N$)#E>1P:X]$.(T@N(!"$164C2"X0@)5G(TL$@N0"
  580. M 5A(+B  -8/D @)%4;ZC064C2"X0D)5G(\T,@N0" 5F;[9%K(U0V@N0" 5AY
  581. M-H+D @)!6#@%@N0" 5A4-H+D @)8,7DVTLP@2"X0@(7D @)0,\FB<K8:5#:"
  582. MY (!67DVTLP@2"X0@(7D @%9GL>A,1Y(+A"0164C2"X@D!639R/-##*3 @( 
  583. M       "R:)"7!HY-K(2 ZP"(  E(]#9 AXV,I," @        ?)HD)<&L,N
  584. M@N0" 5A(+B" A=3%'OHNTMD"AJ-"92-(+B 0A)5G(\T,LA(#M2_2V0+)HD)E
  585. M(T@N(!"$E6<CS0RR$@/5+Y(L*D@N$&"$Y (!0^ZM 1HC;2X0D(3D @)!6%0V
  586. M@N0" 5AY-K)$(,,N@N0" 5E(+A" A>0" E S_.RA[R*=+4!E(T@N$("59R-(
  587. M+B 0A(53($@N$&"$Y (!0^ZM064C;2X0D)1G(\T,LA(#M2_2V0+#,(+D @%8
  588. M2"X0D.5Y'!KC064C2"X0D)5G(\FB@E,@[3""Y (!64@N$("%Y ("4#-RZ9%K
  589. M(\FB0F4C2"X0D)5G(TL$LA(#U2_")",S*2         @D"PJQ*618R,K,> D
  590. M  )0,P*=+>!A(S,I$        !;0Y!M(+D! %$05U+L?R:)RMAK&US&3 @$ 
  591. M       !9ZN18R,K,3 '  )0- *=+>!A(S,P<K@?N,DQ+RJ^Z]$%(YTMP*("
  592. M!P  <K8:*S% :2,Y-K(2 UH ,#!%%3/ H@(O (#TQ%0$$@,"(@,",@,"0@,"
  593. M4@,"8N,#  )$,0)T*N M*O.B,B\J"*.","H=H](Q*AVCTC$J':/2,2H=HX(P
  594. M*@BC,B\JR:*R$@-B "! )"- IP(=H](Q*AVC@C J"*,R+RK>HI(L*LFBDBPJ
  595. MWJ(R+RH(HX(P*AVCTC$J*S$@!@ "1#,"="K@+2H=HW(T*G&C,I," 0      
  596. M  $S*1         1,)," 0      $ $S*1         1,)," 0      $ $S
  597. M*1         1,)," 0      $ $S*1         1,)," 0        %QHW(T
  598. M*AVCLA(#\@ @0$0C0*<"':/2,2H=H](Q*@BCDBPJR:*2+"K)HH(P*AVCTC$J
  599. M':/2,2H=H](Q*BLQ( 8  D0U G0J@# J,J,B,RH=H](Q*AVC@C J"*.","KS
  600. MHC(O*O.BXBTJWJ*2+"K)HK(2 V( ($!D(T"G LFBDBPJWJ+2,2I<HS*3 @$ 
  601. M     ! !,RD0        $C"3 @$      " !,RD0        $C"3 @$     
  602. M " !,RD0        $< U*AVCXBTJR:)"*RHK,2 ,  ):,0(>*S "  4   $ 
  603. MX \8, 9#L41(B#  (*!5(^"Q B< 8   $ !@ * #$!P0X!  $P!, P "6C("
  604. M'BLP @ %   !  ? &# @"$?DF!,P ""@-2/@L0([ +   !   /X @X$!@QS"
  605. M8$:(9)0LHB@A/P ( ( $  ):- (>*S "  4   $ #_P8!A "$ +@ 3  (*!E
  606. M(^"Q C\ P   $   / !F $( 0@"! *$ D8!4@5J!.,$0<P#.!  $1DQ!1P0>
  607. M*Q "  D 4   $!@7$AP0$! 0,@! X%0E5$3@L0(Y '   !,  . !P!<>( @D
  608. M$!! $ %#X! ] ,\ H 0  T-35 -T*H#D @1'3TQ&="JP$@-(+C PQ"1%IP(K
  609. M,4"G BLQ0*<"+"K0  !(3TU%G2W@82- H3$O*I81DF,C*S&P$@,K,= (  -2
  610. M1$X#+"K0  !-24M%'  @($4D,)," 0      @ (= #!@Q$0TT-D"'C;R)1YT
  611. M*H#D @):,4@N(* E@^0" EHS2"X@H$6#Y ("6C5(+B"@9;,2 [W[87P=OJ-Q
  612. MN!^XR=&[']C[L6L9,RD0        $'"V&L$TTN8" 49M+A" Y&$CM*+"-2J@
  613. M,=+F @%)-N31Y@(!23,I$        !;@WAIM+A" Y'D<;2X08&1%'DPRXE\C
  614. M-N31NQ]W*0        ! "0       (!PMAI(+D!@Q!1T9$4>-N1QEP(!    
  615. M  "  0         &+"I0 P!04D534R!!3ED@2T59(%1/(%-(3T]4("')HM):
  616. M'E;D84,>=RD                     <)<" @      ,0$!         US(
  617. M064C2"Y ,!34!)5G(\T,DF,C*S$ )@ #0TA/ YTMX&$CM*(23"-M+A! YV$C
  618. MPS!"IP)(+D!P]?1$A.0"!$E23TY(+E!P541T5(3D @105514*S$P["(S*1  
  619. M      !6.3$<^BY"IP(L*I   %,K*S%0^R)T*L"B @D ,-6R$@/5+W*V&ET1
  620. M0J<"="H@,RHS*1        !%L!(#="J ,"HS*1         PL!(#="K@+2HS
  621. M*1        !UL!(#="J0+"JTHK(2 RLQD"PJPS""O1^&H_)Q&NTP<K@?,RD0
  622. M        %N"['KDV,I," 0        $)K=&V&\,N<K@?':,BEQ[Z+M+9 O/[
  623. M,>PB,RD0        5@E2'/HNTMD",RD0        5DDG'"LQ4/TB*S%0^R*=
  624. M+9 L*E0VTN8" 71Y-M+,(,;7L?<<V/M!92-(+A"@E6<CS0Q"92-(+A PE&<C
  625. MS0RR$@/5+](.(VTN$$"7:R/^-9)C(RLQ,"T  U1)4@.=+>!A([2B,I," 0  
  626. M    @ &@,=+F @%);2X0D#23 @$      % %GL>A,1[#+C*'&OHNTMD"V/O1
  627. MY@(!2=ZB4O :;;N1+"IGJT%E(T@N$&"49R/-##*3 @$      ( !5#;2Y@(!
  628. M27DVTLP@*S%0_2),,I)C(RLQT \ !%1)4D\$G2W@82.THD)E(T@N$&"49R/-
  629. M##(,(RPJ4   R:)"6!IT*N"D A4           #@I (5 (          L!(#
  630. M="K@I (5 " !        X*0"%0"          + 2 Z+[@3D>PN.!Y (#5$E2
  631. M[3""Y (!1KDV8D,>=RD0        &         !@X*0"%0#P!0       ."D
  632. M A4 4         !@01[JR)%C(RLQD!8 !%!005($="IPEP(             
  633. M        =RD@        $Q        !C@.0" 5C)HG*7 @              
  634. M      !AYH'D @%9*S$0"@ "15$"N"J Y (!6EZU@>0" 59(+A" A>0" E@Q
  635. M":WAWAI(+A" A"<;2"X0@(7D @)8,0FMX2TJ+;#AWAH)K>'>&@^\@>0" EDQ
  636. M9ZNQ$@.< $ @%#151-#9 AXV0BLJ5#:"Y (!5'DVTLP@PS"2&QP(H^+>&MZB
  637. MDM :="K@I (5            X*0"%0           + 2 RG\T3$J[JW1MAN'
  638. M^_&A&@O+P:("#0!PE>1$Y, ?PRY"*RJ;[:'O(BPJT   ((T@(+4OPJ("#0  
  639. MX@@"4OTB9ZO1NQ]GJY$L*JWE84,>#OSAP!]6Y('D @-#2$]?XD&G DXJ4 $ 
  640. M          !.*E !            *S$ +QXVY)$;'#,I(        !'@WAJY
  641. MP3&3 @$        "[JTQDP(!         V>KX7D<2"Y X%0E5&1%'C;DD1L<
  642. M,RD@        $>#>&KG!,9," 0        +NK3&3 @$        #9ZOA>1Q(
  643. M+D#@5"549$4>-N1QEP(           $        #2"Y ,!34!&5%'D@N$("%
  644. MY (!69['H3$>2"Y 0)4D]83D @%#[JV!Y (!1C,I$        !!0\!KNK=&V
  645. M&T@N$&"$Y (!0^ZM<;8:5#:"Y (!2'DVTLP@PRZ"Y (!6K2B(I<>^BZ"Y ("
  646. M4#*U+X+D @)0,=4ODBPJ5#:"Y (!5'DVLD0@[3""Y (!6$@N(("%))<>N39B
  647. M0QYW*0                    !PEP("       Q 0$      # &7,B1+"K>
  648. MHC(0(X?[<;@?E:EA0QZ]^W&7 @           0      , :]^_$E'E;D,9,"
  649. MF0D       (?IV%#'KW[<9<"           !       P!KW[\24>5N0QDP*9
  650. M"0       1^GP20CV/N!A1H&YL&B AL D/54!>)65D961@:"Y (!5 O+<;8:
  651. M+"IP 0 @<VAO=',N+BYGJY$L*H2ED6,C*S' 5@ $4%))3@2=+>!A(UBHP:("
  652. M)0   @(" @+2T@)R]L9F!M+2DBPJA*7!H@(Q ""6!]+D\B1'5W86!F("TN32
  653. M],:6YI8^+RJ$I<&B AD (%4V]B9'!I+F!H+D @)21 O+<;8:+"IP 0 @<VAO
  654. M=',@8GEGJ]$Q*H2E@>0" U)$3C*C0E@:\Z)"6AHY-K(2 Q@!,##$)#70V0(>
  655. M-D*G D@N$&"%Y ("05A(+B"0%8/D @)8,4@N$("$Y (!1D@N$*"%Y (!0T@N
  656. M$$"%Y (!6$@N$)"%Y (#4$%22"X@@(6$Y ("64A(+D! %$05A.0"!$-!35!(
  657. M+C P136#Y (#4U0R2"X@0$6%Y ("5% K,>#O(#DVLA(#!P% </3$9$30V0(>
  658. M-I)A',$TTN8" V9L9QXVDCD<AL2!Y ($4%))3K2B0F4C2"X@0 659R/-#$(K
  659. M*E0V@N0" E14>3;2S" L*O   %!!4B @5#:"Y (#4U0R>3;2S" L*O   %E/
  660. M52 @5#:"Y (#4U0S>3;2S"#)HB(S*J QTN8" 4IT*H#D @)$,4@N($ D@^0"
  661. M D0S2"X@0$2#Y ("1#5(+B! 9+,2 VTN$*!D?!V^HT%E(T@N0$ 41!649R/-
  662. M#$*G G<I(        !(0        %G"7 @(      !(! 0      4 %W*2  
  663. M     $ 0$        ")PEP("       F 0$      % !=RD@        $A  
  664. M       5<)<" @      ! $!       @ BLQT.8" 4K&UW&X'VTN$*"$Y (#
  665. M1DQ$CLE!92-(+B"0A91G(\T,0F4C2"X@@(649R/-#$*G @BC@C J':.","H=
  666. MH](Q*BLQT.8" 4K&UT%E(T@N,  5))5G(\T,0J<"=RD         D!      
  667. M   6<)<" 0      4 $!      !@ 7<I         ( 0        (G"7 @$ 
  668. M     $ ! 0      8 %W*0        " $        !5PEP(         " $ 
  669. M     # "*S'0Y@(!2L;7X9@<5#:"Y (!67DVTLP@5#:"Y (!6'DVTLP@7^)!
  670. MIP).*E !            3BI0 0           "LQ "\>-N1QEP(         
  671. M  $        #2"Y ,!34!&5%'D@N$("%Y (!69['H3$>-N1!IP).*E ! "@ 
  672. M        3BI0 0 4         "LQP*("#P" ],96UM+F @%*"\MQMAHL*O  
  673. M "!087(M9ZN!Y (#4$%2"\MQMAK)HM):'E;D@>0"!$)!4T5(+A! A>0" U!!
  674. M4@FM064C2"X@0 659R-+!(+D @%45#:"Y ("5%1Y-K)$($@N,#!%%>,M*H2E
  675. MP:("+P#0TM+2TM+2TM+2TM+2TM+2TM+2TM(R+RJ$I8'D @-005(+RX'D @)0
  676. M-$@N,#!%)=.['V>K<;@?5#:"Y (#4U0R>3;2S" (HT)8&D@N$$"UL!Q(+B  
  677. M18/D @-35#.]^W&V&H?[064C2"XP,$4UDV<CS0S2,2J$I<&B A$ 0/5$%<0$
  678. M@N0" E14"\MQMAHL*G ! " @5$\@4$%2(&>K@>0" E10"\MQMAI'HT)8&MZB
  679. B\G$:3#*"Y (#1DE.;2XP8,9V]F<<_C62+"J6$9)C(RLQ ,MQ
  680.  
  681. end
  682. END_UU
  683.  
  684. -- 
  685. ------------------------------------------------------------------------
  686. Disclaimer: My opinions do not necessarily reflect those of my employer.
  687. ========================================================================
  688. ------------------------------------------------------------------------
  689.      mike.rovak@drd.com                        
  690.      drd!mike.rovak@tulsun.central.sun.com     
  691. ========================================================================
  692.  
  693.